﻿Imports BE.BE
Imports BL.BL

Public Class frmGestionarAseguradoras
    Dim mlistaAseguradores As New List(Of Asegurador_BE)
    Private Sub frmGestionarAseguradoras_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            Helper_FL.setearPermisos(frmPrincipal.usr, Me)

            mlistaAseguradores = Asegurador_BL.listarAsegurador
            Me.DataGridView1.DataSource = mlistaAseguradores
        Catch ex As Exception
            MsgBox(ex)
        End Try
        
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mAsegurador As New Asegurador_BE

        If Me.TextBox1.Text <> "" Then
            mAsegurador.RazonSocial = Me.TextBox1.Text
        End If

        If Me.TextBox2.Text <> "" And IsNumeric(Me.TextBox2.Text) Then
            mAsegurador.CUIT = Me.TextBox2.Text
        End If

        If TextBox3.Text <> "" And IsNumeric(Me.TextBox3.Text) Then
            Dim mtele As New Telefono_BE

            mtele.Numero = Me.TextBox3.Text
            mtele.TipoObjeto = Telefono_BE.EnumTipoObjeto.Asegurador

            mAsegurador.Telefonos.Add(mtele)
        End If

        If Me.TextBox4.Text <> "" And IsNumeric(Me.TextBox4.Text) Then
            Dim mtele As New Telefono_BE

            mtele.Numero = Me.TextBox4.Text
            mtele.TipoObjeto = Telefono_BE.EnumTipoObjeto.Asegurador

            mAsegurador.Telefonos.Add(mtele)
        End If

        Try
            Asegurador_BL.altaAsegurador(mAsegurador)
            Me.mlistaAseguradores = Asegurador_BL.listarAsegurador
        Catch ex As Exception
            MsgBox(ex)
        End Try


    End Sub


    
End Class